home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / cad401.sfx / Œ (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  202b  |  8 lines
  1. 1 FI$="JJ[140]":SYS36864:DR=PEEK(36863):POKE36863,PEEK(36862):POKE183,LEN(FI$)
  2. 2 FORT=1TOLEN(FI$):POKE827+T,ASC(MID$(FI$,T,1)):NEXT:SYS32792
  3. 3 GETA$:IFA$=""THEN3
  4. 4 POKE36863,DR:SYS36885:SYS36912
  5. 5 GETA$:IFA$=""THEN5
  6. 6 POKE780,ASC(A$):SYS32813
  7. 7 GOTO1
  8.